home *** CD-ROM | disk | FTP | other *** search
/ Sportware Golf / Sportware Golf.iso / mac / Files / 6IRON.DIR / 00001_Script_1 next >
Text File  |  1995-09-19  |  2KB  |  29 lines
  1. on startmovie
  2.   global curdata,curfield,curline,curlist,curstats,fieldlist,numlines,prefix,tempart
  3.   global scrlspr,scrltop,scrlbottom,scrlscope
  4.   initmovie()
  5.   set curdata=the number of cast "equipdata"
  6.   set curfield=the number of cast "equipshow"
  7.   set curline=1 --the current top line of the scrolling field
  8.   set curlist=the number of cast "equiplist"
  9.   set curstats=the number of cast "Equipstats"
  10.   set fieldlist=[1,4,7,9,"art"] --the line positions for each field
  11.   set numlines=24 --the number of lines in the scrolling field
  12.   set prefix="IRON"
  13.   set tempart=the number of cast "tempart"
  14.   set scrlspr=20 --the sprite number of the scroll box - place in channel 16
  15.   set scrltop=84 --the topmost position of the scroll box
  16.   set scrlbottom=358 --the bottommost position of the scroll box
  17.   set scrlscope=(the number of lines in field curlist)-numlines+1 --the range of lines to scroll
  18.   put line 1 to numlines of field curlist into field curfield --initialize scrolling field
  19.   set the textheight of field curfield = 12 -- so Windows will scroll to end
  20.   set the textheight of field curstats=13 --set line spacing of stats field #1
  21.   set the textheight of field (curstats+1)=13 --set line spacing of stats field #2
  22.   puppetsprite scrlspr,1 --make scroll box a puppet
  23. end startmovie 
  24.  
  25. on stopmovie
  26.   global curfield,curlist,numlines,scrlspr
  27.   put line 1 to numlines of field curlist into field curfield --initialize scrolling field
  28.   puppetsprite scrlspr,0 --turn off puppet for scroll box
  29. end